ct_p_bubble <- function(data, savePDF = FALSE, ...) {
  x <- data$PTS
  y <- data$GD
  radius <- data$PDL

  if (savePDF != FALSE) {
    pdf(savePDF, width = 7.8, height = 11.2, paper = "a4", pointsize = 8)
  }

  symbols(x, y, radius, inches=0.35, fg="white", bg="red", xlab="Points", ylab="Goal Difference", main = "Plot PTS and GD as bubbles with radius PDL")
  text(x, y, data$CLUB, cex=0.5)

  if (savePDF != FALSE) {
    dev.off()
  }
}
